home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-03-19 | 2.0 KB | 69 lines | [TEXT/MPS ] |
- #########################################################################
- #########################################################################
- ## Copyright © Apple Computer, Inc. 1993-1997
- ## All rights reserved
- #########################################################################
- #########################################################################
- #
- # File: MakeClouseauDocs
- #
- # Version: 2.1.4
- #
- # Usage: MakeClouseauDocs scriptFile logFile [option…]
- #
- # Description: This MPW script extracts the information in standard
- # Clouseau script comments in order to automatically
- # generate a reference manual.
- #
- # History:
- # Date: By: Changes:
- # 03/24/93 Jonathan Marsh Created
- # 03/24/93 Jonathan Marsh Created
- # 09/04/95 SBR Added this header for Radar 1273927
- # 06/01/96 SBR/MSO Updated copyright header
- # Changed version number from 1.0 to 2.1d5
- # 01/21/97 SBR Updated copyright header.
- # 01/29/97 SBR Fixed to work with MPW 3.4.1.
- #
- #########################################################################
- #########################################################################
-
- set exit 0
-
- #∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
- # Give help if needed
- #∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
-
- if {#} == 0
- echo 'Usage: MakeClouseauDocs scriptFile docFile'
- exit 1
- end
-
- open -n "{2}"
- echo "∞end∞" >> "{2}"
- catenate "{1}" >> "{2}"
- echo "∞begin∞∂n" >> "{2}"
- open -t "{2}"
-
- Find •
- Replace /[#∂t]+Version:[∂t]+([¬∂n]+)®1∂n/ "∞begin∞Documentation for {1} version ®1∂n∞end∞"
-
- Find •
- loop
- Replace /[#]+∂n#[∂t]+task[∂t]+([¬∂n]+)®1∂n#[∂∞]+∂n([¬∂∞]+)®2#[∂∞]+∂n/ "∞begin∞_________________________________________________________________________∂ntask∂t®1∂t∂t∂t({1})∂n∂n®2∞end∞"
- Break if {status} == 2
- end
-
- Find •
- loop
- Replace /∂∞end∂∞[¬∂∞]+∂∞begin∂∞/ ∂n
- Break if {status} == 2
- end
-
- Find •
- loop
- Replace /•#∂t/ ""
- Break if {status} == 2
- end
-
- set exit 1